home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {24167949-4F1E-47D7-8836-BBE1726D2164}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  37 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim tt
  5.  
  6. Sub Object_OnScriptEnter
  7.     Object.LocalStorage("state") = "normal"    
  8.     If DesktopX.ScriptObject("wmp").Control.settings.mute = True Then
  9.         DesktopX.Object("wmp_txt_volume").Text = "vol: "&DesktopX.ScriptObject("wmp").Control.Settings.volume&" (muted)"
  10.         tt = "Click to remove mute"
  11.     Else
  12.         DesktopX.Object("wmp_txt_volume").Text = "vol: "&DesktopX.ScriptObject("wmp").Control.Settings.volume
  13.         tt = "Click to mute"
  14.     End If
  15. End Sub
  16.  
  17. Sub Object_OnMouseEnter
  18.     DesktopX.ScriptObject("kdocktooltip").tooltip(tt)
  19. End Sub
  20. Sub Object_OnMouseLeave
  21.     DesktopX.ScriptObject("kdocktooltip").tooltip("hide")
  22. End Sub
  23.  
  24. Sub Object_OnStateChange(state)
  25.     If state = "Command executed" Then
  26.         If DesktopX.ScriptObject("wmp").Control.settings.mute = True Then
  27.             DesktopX.ScriptObject("wmp").Control.settings.mute = False
  28.             DesktopX.Object("wmp_txt_volume").Text = "vol: "&DesktopX.ScriptObject("wmp").Control.Settings.volume
  29.             tt = "Click to mute"
  30.         Else
  31.             DesktopX.ScriptObject("wmp").Control.settings.mute = True
  32.             DesktopX.Object("wmp_txt_volume").Text = "vol: "&DesktopX.ScriptObject("wmp").Control.Settings.volume&" (mute)"
  33.             tt = "Click to remove mute"
  34.         End If
  35.     End If
  36. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>181</EditorLeft><EditorTop>378</EditorTop><EditorRight>1201</EditorRight><EditorBottom>1102</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  37.